TITLE	NICK
;;PLAYS SOUND AT COLGATE UNIV.
	ENTRY	IMMPLY
	EXTERN	OUTWC
	EXTERN	NCHNS
	EXTERN	SPEED
	T=0
	T1=1
	OPDEF	FIX [XWD 2000,0]
IMMPLY:	0
	OUTSTR	[ASCIZ /
TRYING TO PLAY!
/]
	MOVEM	T,ST#
	MOVEM	T1,ST1#
	MOVE	T,[XWD 1,1]
	LOCK	T,
	JRST	[
	OUTSTR	[ASCIZ /CAN'T LOCK
/]
	JRST	RET]
	MOVEI	T,RTB
	RTTRP	T,
	JRST	[
	OUTSTR	[ASCIZ /CAN'T RTTRP
/]
	JRST	RET]
	MOVE	T,NCHNS
	TLNE	T,-1
	FIX	T,233000
	CAIG	T,2
	MOVEI	T,3
	DPB	T,[POINT 2,CONOWD,19]
	MOVE	T,SPEED
	TLNE	T,-1
	FIX	T,233000
	IDIVI	T,12
	DPB	T,[POINT 2,CONOWD,29]
	DPB	T1,[POINT 3,CONOWD,22]
	SETOM	DACFLG#
CONOWD:	CONO	200,004000
	SKIPE	DACFLG
	JRST	.-1
	MOVE	T,[XWD 1,1]
	UNLOK.	T,
	OUTSTR	[ASCIZ /NO UNLOCK UUO
/]
RET:	MOVE	T,ST
	MOVE	T1,ST1
	JRA	16,(16)
RTB:	XWD	1,INTADD
	XWD	[HALT]
	BLKO	200,OUTWC
	0
INTADD:	SETZM	DACFLG
	CONO	200,0
	MOVEI	T,RTBOFF
	RTTRP	T,
	JFCL
	UJEN
RTBOFF:	BLOCK	4
	END